home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00070.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  829 b   |  39 lines
  1. on startMovie
  2.   global gCD_Root, gPath, gDelim, gNewQnList, gSubj, gStart
  3.   if the machineType = 256 then
  4.     set gDelim to "\"
  5.   else
  6.     set gDelim to ":"
  7.   end if
  8.   set gCD_Root to the pathName
  9.   set gPath to the pathName
  10.   set gStart to 1
  11.   set gNewQnList to [:]
  12.   case gSubj of
  13.     "G", "M":
  14.       go(gSubj)
  15.     otherwise:
  16.       go(1)
  17.   end case
  18. end
  19.  
  20. on RunTest
  21.   global gTestList, gCursor, gCD_Root, gDelim
  22.   JumbleTest()
  23.   go(1, gCD_Root & "tester")
  24. end
  25.  
  26. on JumbleTest
  27.   global gTestList
  28.   set holdlist to gTestList
  29.   set gTestList to [:]
  30.   set num to count(holdlist)
  31.   repeat with i = 1 to num
  32.     set thisone to random(count(holdlist))
  33.     set thisprop to getPropAt(holdlist, thisone)
  34.     set thisval to getAt(holdlist, thisone)
  35.     deleteAt(holdlist, thisone)
  36.     addProp(gTestList, thisprop, thisval)
  37.   end repeat
  38. end
  39.